(view-register): Handle file name values.

diff --git a/lisp/register.el b/lisp/register.el
index bae40ee165cb7c46fd975c5f68ad6225c983d336..91ef6c404236157d8ca266a4e05b34f933a3e71a 100644 (file)
--- a/lisp/register.el
+++ b/lisp/register.el
@@ -1,6 +1,6 @@
 ;;; register.el --- register commands for Emacs.
 
-;; Copyright (C) 1985 Free Software Foundation, Inc.
+;; Copyright (C) 1985, 1993 Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
 ;; Keywords: internal
@@ -152,6 +152,11 @@ REGISTER is a character."
         ((frame-configuration-p val)
          (princ "a frame configuration."))
 
+        ((and (consp val) (eq (car val) 'file))
+         (princ "the file ")
+         (prin1 (cdr val))
+         (princ "."))
+
         ((consp val)
          (princ "the rectangle:\n")
          (while val